home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1994-04-19 | 9.7 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| TrID
| Adobe PhotoShop Brush
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 10 02 b4 a0 7c | 00 00 00 08 00 00 00 00 |.......||........|
|00000010| 00 07 00 00 00 00 00 00 | 26 6f 00 00 26 8c 00 00 |........|&o..&...|
|00000020| 26 b2 00 00 26 b2 00 00 | 26 b4 00 00 26 b4 00 00 |&...&...|&...&...|
|00000030| 26 b4 6f 6e 20 73 74 61 | 72 74 4d 6f 76 69 65 0d |&.on sta|rtMovie.|
|00000040| 20 20 20 20 66 69 65 6c | 64 4d 61 6e 61 67 65 72 | fiel|dManager|
|00000050| 0d 20 20 20 20 77 68 65 | 6e 20 6b 65 79 44 6f 77 |. whe|n keyDow|
|00000060| 6e 20 74 68 65 6e 20 67 | 69 76 65 55 70 4b 65 79 |n then g|iveUpKey|
|00000070| 0d 65 6e 64 20 73 74 61 | 72 74 4d 6f 76 69 65 0d |.end sta|rtMovie.|
|00000080| 0d 6f 6e 20 66 69 65 6c | 64 4d 61 6e 61 67 65 72 |.on fiel|dManager|
|00000090| 0d 20 20 20 20 69 66 20 | 74 68 65 20 76 6f 6c 75 |. if |the volu|
|000000a0| 6d 65 20 6f 66 20 73 6f | 75 6e 64 20 31 20 3d 20 |me of so|und 1 = |
|000000b0| 30 20 74 68 65 6e 0d 20 | 20 20 20 20 20 20 20 70 |0 then. | p|
|000000c0| 75 74 20 22 31 22 20 69 | 6e 74 6f 20 66 69 65 6c |ut "1" i|nto fiel|
|000000d0| 64 20 22 61 64 64 41 64 | 64 31 22 0d 20 20 20 20 |d "addAd|d1". |
|000000e0| 65 6c 73 65 0d 20 20 20 | 20 20 20 20 20 70 75 74 |else. | put|
|000000f0| 20 22 30 22 20 69 6e 74 | 6f 20 66 69 65 6c 64 20 | "0" int|o field |
|00000100| 22 61 64 64 41 64 64 31 | 22 0d 20 20 20 20 65 6e |"addAdd1|". en|
|00000110| 64 20 69 66 0d 65 6e 64 | 20 66 69 65 6c 64 4d 61 |d if.end| fieldMa|
|00000120| 6e 61 67 65 72 0d 0d 0d | 0d 6f 6e 20 73 6f 75 6e |nager...|.on soun|
|00000130| 64 43 68 65 63 6b 0d 20 | 20 20 20 69 66 20 66 69 |dCheck. | if fi|
|00000140| 65 6c 64 20 22 61 64 64 | 41 64 64 31 22 20 3d 20 |eld "add|Add1" = |
|00000150| 31 20 74 68 65 6e 0d 20 | 20 20 20 20 20 20 20 53 |1 then. | S|
|00000160| 6f 75 6e 64 30 0d 20 20 | 20 20 65 6c 73 65 20 0d |ound0. | else .|
|00000170| 20 20 20 20 20 20 20 20 | 73 6f 75 6e 64 32 35 35 | |sound255|
|00000180| 0d 20 20 20 20 65 6e 64 | 20 69 66 0d 65 6e 64 20 |. end| if.end |
|00000190| 73 6f 75 6e 64 43 68 65 | 63 6b 0d 0d 0d 0d 6f 6e |soundChe|ck....on|
|000001a0| 20 67 6f 6f 64 42 75 74 | 74 6f 6e 20 63 6f 6d 0d | goodBut|ton com.|
|000001b0| 20 20 20 20 70 75 74 20 | 69 74 65 6d 20 31 20 6f | put |item 1 o|
|000001c0| 66 20 74 68 65 20 6e 61 | 6d 65 20 6f 66 20 63 61 |f the na|me of ca|
|000001d0| 73 74 20 74 68 65 20 63 | 61 73 74 4e 75 6d 20 6f |st the c|astNum o|
|000001e0| 66 20 73 70 72 69 74 65 | 20 63 6c 69 63 6b 4f 6e |f sprite| clickOn|
|000001f0| 28 29 20 69 6e 74 6f 20 | 63 4e 61 6d 65 0d 20 20 |() into |cName. |
|00000200| 20 20 72 65 70 65 61 74 | 20 77 68 69 6c 65 20 73 | repeat| while s|
|00000210| 74 69 6c 6c 44 6f 77 6e | 28 29 0d 20 20 20 20 20 |tillDown|(). |
|00000220| 20 20 20 69 66 20 72 6f | 6c 6c 4f 76 65 72 28 63 | if ro|llOver(c|
|00000230| 6c 69 63 6b 4f 6e 28 29 | 29 20 74 68 65 6e 0d 20 |lickOn()|) then. |
|00000240| 20 20 20 20 20 20 20 20 | 20 20 20 73 65 74 20 74 | | set t|
|00000250| 68 65 20 63 61 73 74 4e | 75 6d 20 6f 66 20 73 70 |he castN|um of sp|
|00000260| 72 69 74 65 20 63 6c 69 | 63 6b 4f 6e 28 29 20 3d |rite cli|ckOn() =|
|00000270| 20 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 63 | the num|ber of c|
|00000280| 61 73 74 20 28 63 4e 61 | 6d 65 20 26 20 22 2c 44 |ast (cNa|me & ",D|
|00000290| 6f 77 6e 22 29 0d 20 20 | 20 20 20 20 20 20 65 6c |own"). | el|
|000002a0| 73 65 20 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |se . | |
|000002b0| 73 65 74 20 74 68 65 20 | 63 61 73 74 4e 75 6d 20 |set the |castNum |
|000002c0| 6f 66 20 73 70 72 69 74 | 65 20 63 6c 69 63 6b 4f |of sprit|e clickO|
|000002d0| 6e 28 29 20 3d 20 74 68 | 65 20 6e 75 6d 62 65 72 |n() = th|e number|
|000002e0| 20 6f 66 20 63 61 73 74 | 20 28 63 4e 61 6d 65 20 | of cast| (cName |
|000002f0| 26 20 22 2c 55 70 22 29 | 0d 20 20 20 20 20 20 20 |& ",Up")|. |
|00000300| 20 65 6e 64 20 69 66 0d | 20 20 20 20 20 20 20 20 | end if.| |
|00000310| 75 70 64 61 74 65 53 74 | 61 67 65 0d 20 20 20 20 |updateSt|age. |
|00000320| 65 6e 64 20 72 65 70 65 | 61 74 0d 20 20 20 20 73 |end repe|at. s|
|00000330| 65 74 20 74 68 65 20 63 | 61 73 74 4e 75 6d 20 6f |et the c|astNum o|
|00000340| 66 20 73 70 72 69 74 65 | 20 63 6c 69 63 6b 4f 6e |f sprite| clickOn|
|00000350| 28 29 20 3d 20 74 68 65 | 20 6e 75 6d 62 65 72 20 |() = the| number |
|00000360| 6f 66 20 63 61 73 74 20 | 28 63 4e 61 6d 65 20 26 |of cast |(cName &|
|00000370| 20 22 2c 44 6f 77 6e 22 | 29 20 0d 20 20 20 20 75 | ",Down"|) . u|
|00000380| 70 64 61 74 65 53 74 61 | 67 65 0d 20 20 20 20 69 |pdateSta|ge. i|
|00000390| 66 20 72 6f 6c 6c 4f 76 | 65 72 28 63 6c 69 63 6b |f rollOv|er(click|
|000003a0| 4f 6e 28 29 29 20 74 68 | 65 6e 20 64 6f 20 63 6f |On()) th|en do co|
|000003b0| 6d 0d 65 6e 64 20 67 6f | 6f 64 42 75 74 74 6f 6e |m.end go|odButton|
|000003c0| 0d 0d 6f 6e 20 67 6f 6f | 64 42 75 74 74 6f 6e 32 |..on goo|dButton2|
|000003d0| 20 63 6f 6d 0d 20 20 20 | 20 70 75 74 20 69 74 65 | com. | put ite|
|000003e0| 6d 20 31 20 6f 66 20 74 | 68 65 20 6e 61 6d 65 20 |m 1 of t|he name |
|000003f0| 6f 66 20 63 61 73 74 20 | 74 68 65 20 63 61 73 74 |of cast |the cast|
|00000400| 4e 75 6d 20 6f 66 20 73 | 70 72 69 74 65 20 63 6c |Num of s|prite cl|
|00000410| 69 63 6b 4f 6e 28 29 20 | 69 6e 74 6f 20 63 4e 61 |ickOn() |into cNa|
|00000420| 6d 65 0d 20 20 20 20 72 | 65 70 65 61 74 20 77 68 |me. r|epeat wh|
|00000430| 69 6c 65 20 73 74 69 6c | 6c 44 6f 77 6e 28 29 0d |ile stil|lDown().|
|00000440| 20 20 20 20 20 20 20 20 | 69 66 20 72 6f 6c 6c 4f | |if rollO|
|00000450| 76 65 72 28 63 6c 69 63 | 6b 4f 6e 28 29 29 20 74 |ver(clic|kOn()) t|
|00000460| 68 65 6e 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |hen. | |
|00000470| 73 65 74 20 74 68 65 20 | 63 61 73 74 4e 75 6d 20 |set the |castNum |
|00000480| 6f 66 20 73 70 72 69 74 | 65 20 63 6c 69 63 6b 4f |of sprit|e clickO|
|00000490| 6e 28 29 20 3d 20 74 68 | 65 20 6e 75 6d 62 65 72 |n() = th|e number|
|000004a0| 20 6f 66 20 63 61 73 74 | 20 28 63 4e 61 6d 65 20 | of cast| (cName |
|000004b0| 26 20 22 2c 44 6f 77 6e | 22 29 0d 20 20 20 20 20 |& ",Down|"). |
|000004c0| 20 20 20 65 6c 73 65 20 | 0d 20 20 20 20 20 20 20 | else |. |
|000004d0| 20 20 20 20 20 73 65 74 | 20 74 68 65 20 63 61 73 | set| the cas|
|000004e0| 74 4e 75 6d 20 6f 66 20 | 73 70 72 69 74 65 20 63 |tNum of |sprite c|
|000004f0| 6c 69 63 6b 4f 6e 28 29 | 20 3d 20 74 68 65 20 6e |lickOn()| = the n|
|00000500| 75 6d 62 65 72 20 6f 66 | 20 63 61 73 74 20 28 63 |umber of| cast (c|
|00000510| 4e 61 6d 65 20 26 20 22 | 2c 55 70 22 29 0d 20 20 |Name & "|,Up"). |
|00000520| 20 20 20 20 20 20 65 6e | 64 20 69 66 0d 20 20 20 | en|d if. |
|00000530| 20 20 20 20 20 75 70 64 | 61 74 65 53 74 61 67 65 | upd|ateStage|
|00000540| 0d 20 20 20 20 65 6e 64 | 20 72 65 70 65 61 74 0d |. end| repeat.|
|00000550| 20 20 20 20 73 65 74 20 | 74 68 65 20 63 61 73 74 | set |the cast|
|00000560| 4e 75 6d 20 6f 66 20 73 | 70 72 69 74 65 20 63 6c |Num of s|prite cl|
|00000570| 69 63 6b 4f 6e 28 29 20 | 3d 20 74 68 65 20 6e 75 |ickOn() |= the nu|
|00000580| 6d 62 65 72 20 6f 66 20 | 63 61 73 74 20 28 63 4e |mber of |cast (cN|
|00000590| 61 6d 65 20 26 20 22 2c | 55 70 22 29 20 0d 20 20 |ame & ",|Up") . |
|000005a0| 20 20 75 70 64 61 74 65 | 53 74 61 67 65 0d 20 20 | update|Stage. |
|000005b0| 20 20 69 66 20 72 6f 6c | 6c 4f 76 65 72 28 63 6c | if rol|lOver(cl|
|000005c0| 69 63 6b 4f 6e 28 29 29 | 20 74 68 65 6e 20 64 6f |ickOn())| then do|
|000005d0| 20 63 6f 6d 0d 65 6e 64 | 20 67 6f 6f 64 42 75 74 | com.end| goodBut|
|000005e0| 74 6f 6e 32 0d 0d 0d 6f | 6e 20 73 6f 75 6e 64 30 |ton2...o|n sound0|
|000005f0| 0d 20 20 20 20 73 65 74 | 20 74 68 65 20 76 6f 6c |. set| the vol|
|00000600| 75 6d 65 20 6f 66 20 73 | 6f 75 6e 64 20 31 20 74 |ume of s|ound 1 t|
|00000610| 6f 20 30 0d 65 6e 64 20 | 73 6f 75 6e 64 30 20 20 |o 0.end |sound0 |
|00000620| 20 0d 0d 0d 6f 6e 20 73 | 6f 75 6e 64 32 35 35 0d | ...on s|ound255.|
|00000630| 20 20 20 20 73 65 74 20 | 74 68 65 20 76 6f 6c 75 | set |the volu|
|00000640| 6d 65 20 6f 66 20 73 6f | 75 6e 64 20 31 20 74 6f |me of so|und 1 to|
|00000650| 20 32 35 35 0d 65 6e 64 | 20 73 6f 75 6e 64 32 35 | 255.end| sound25|
|00000660| 35 20 20 20 20 0d 0d 0d | 0d 6f 6e 20 6c 6f 76 65 |5 ...|.on love|
|00000670| 0d 20 20 20 20 67 6c 6f | 62 61 6c 20 68 6f 6c 64 |. glo|bal hold|
|00000680| 52 61 74 65 0d 20 20 20 | 20 73 65 74 20 4e 20 3d |Rate. | set N =|
|00000690| 20 31 0d 20 20 20 20 70 | 75 74 20 74 68 65 20 74 | 1. p|ut the t|
|000006a0| 69 6d 65 72 20 69 6e 74 | 6f 20 4e 0d 20 20 20 20 |imer int|o N. |
|000006b0| 73 65 74 20 68 6f 6c 64 | 52 61 74 65 20 3d 20 31 |set hold|Rate = 1|
|000006c0| 0d 20 20 20 20 72 65 70 | 65 61 74 20 77 68 69 6c |. rep|eat whil|
|000006d0| 65 20 74 68 65 20 74 69 | 6d 65 72 20 3c 20 4e 20 |e the ti|mer < N |
|000006e0| 2b 20 68 6f 6c 64 52 61 | 74 65 0d 20 20 20 20 65 |+ holdRa|te. e|
|000006f0| 6e 64 20 72 65 70 65 61 | 74 0d 65 6e 64 20 6c 6f |nd repea|t.end lo|
|00000700| 76 65 20 20 20 20 0d 0d | 0d 6f 6e 20 50 42 0d 20 |ve ..|.on PB. |
|00000710| 20 20 20 70 75 74 20 28 | 74 68 65 20 6c 6f 63 56 | put (|the locV|
|00000720| 20 6f 66 20 73 70 72 69 | 74 65 20 63 6c 69 63 6b | of spri|te click|
|00000730| 6f 6e 28 29 29 20 2b 20 | 31 20 69 6e 74 6f 20 64 |on()) + |1 into d|
|00000740| 56 0d 20 20 20 20 70 75 | 74 20 28 74 68 65 20 6c |V. pu|t (the l|
|00000750| 6f 63 48 20 6f 66 20 73 | 70 72 69 74 65 20 63 6c |ocH of s|prite cl|
|00000760| 69 63 6b 6f 6e 28 29 29 | 20 2b 20 31 20 69 6e 74 |ickon())| + 1 int|
|00000770| 6f 20 64 48 0d 20 20 20 | 20 73 65 74 20 74 68 65 |o dH. | set the|
|00000780| 20 6c 6f 63 56 20 6f 66 | 20 73 70 72 69 74 65 20 | locV of| sprite |
|00000790| 63 6c 69 63 6b 4f 6e 28 | 29 20 3d 20 64 56 0d 20 |clickOn(|) = dV. |
|000007a0| 20 20 20 73 65 74 20 74 | 68 65 20 6c 6f 63 48 20 | set t|he locH |
|000007b0| 6f 66 20 73 70 72 69 74 | 65 20 63 6c 69 63 6b 4f |of sprit|e clickO|
|000007c0| 6e 28 29 20 3d 20 64 48 | 0d 20 20 20 20 75 70 44 |n() = dH|. upD|
|000007d0| 61 74 65 53 74 61 67 65 | 0d 20 20 20 20 72 65 70 |ateStage|. rep|
|000007e0| 65 61 74 20 77 68 69 6c | 65 20 73 74 69 6c 6c 44 |eat whil|e stillD|
|000007f0| 6f 77 6e 28 29 0d 20 20 | 20 20 20 20 20 20 69 66 |own(). | if|
|00000800| 20 72 6f 6c 6c 4f 76 65 | 72 28 63 6c 69 63 6b 4f | rollOve|r(clickO|
|00000810| 6e 28 29 29 20 6f 72 20 | c2 0d 20 20 20 20 20 20 |n()) or |.. |
|00000820| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000830| 20 28 28 6d 6f 75 73 65 | 56 28 29 20 3e 3d 20 28 | ((mouse|V() >= (|
|00000840| 64 76 20 2d 20 31 29 20 | 61 6e 64 20 6d 6f 75 73 |dv - 1) |and mous|
|00000850| 65 48 28 29 20 3e 3d 20 | 28 64 48 20 2d 20 31 29 |eH() >= |(dH - 1)|
|00000860| 29 20 61 6e 64 20 28 6d | 6f 75 73 65 56 28 29 20 |) and (m|ouseV() |
|00000870| 3c 3d 20 74 68 65 20 62 | 6f 74 74 6f 6d 20 6f 66 |<= the b|ottom of|
|00000880| 20 73 70 72 69 74 65 20 | 63 6c 69 63 6b 4f 6e 28 | sprite |clickOn(|
|00000890| 29 20 20 20 20 20 20 20 | 61 6e 64 20 c2 0d 20 20 |) |and .. |
|000008a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000008b0| 20 20 20 20 20 20 20 6d | 6f 75 73 65 48 28 29 20 | m|ouseH() |
|000008c0| 3c 3d 20 74 68 65 20 72 | 69 67 68 74 20 6f 66 20 |<= the r|ight of |
|000008d0| 73 70 72 69 74 65 20 63 | 6c 69 63 6b 4f 6e 28 29 |sprite c|lickOn()|
|000008e0| 29 29 20 74 68 65 6e 20 | 0d 20 20 20 20 20 20 20 |)) then |. |
|000008f0| 20 20 20 20 20 73 65 74 | 20 74 68 65 20 6c 6f 63 | set| the loc|
|00000900| 56 20 6f 66 20 73 70 72 | 69 74 65 20 63 6c 69 63 |V of spr|ite clic|
|00000910| 6b 4f 6e 28 29 20 3d 20 | 64 56 0d 20 20 20 20 20 |kOn() = |dV. |
|00000920| 20 20 20 20 20 20 20 73 | 65 74 20 74 68 65 20 6c | s|et the l|
|00000930| 6f 63 48 20 6f 66 20 73 | 70 72 69 74 65 20 63 6c |ocH of s|prite cl|
|00000940| 69 63 6b 4f 6e 28 29 20 | 3d 20 64 48 0d 20 20 20 |ickOn() |= dH. |
|00000950| 20 20 20 20 20 65 6c 73 | 65 0d 20 20 20 20 20 20 | els|e. |
|00000960| 20 20 20 20 20 20 73 65 | 74 20 74 68 65 20 6c 6f | se|t the lo|
|00000970| 63 56 20 6f 66 20 73 70 | 72 69 74 65 20 63 6c 69 |cV of sp|rite cli|
|00000980| 63 6b 4f 6e 28 29 20 3d | 20 64 56 20 2d 20 31 0d |ckOn() =| dV - 1.|
|00000990| 20 20 20 20 20 20 20 20 | 20 20 20 20 73 65 74 20 | | set |
|000009a0| 74 68 65 20 6c 6f 63 48 | 20 6f 66 20 73 70 72 69 |the locH| of spri|
|000009b0| 74 65 20 63 6c 69 63 6b | 4f 6e 28 29 20 3d 20 64 |te click|On() = d|
|000009c0| 48 20 2d 20 31 0d 20 20 | 20 20 20 20 20 20 65 6e |H - 1. | en|
|000009d0| 64 20 69 66 0d 20 20 20 | 20 20 20 20 20 75 70 44 |d if. | upD|
|000009e0| 61 74 65 53 74 61 67 65 | 0d 20 20 20 20 65 6e 64 |ateStage|. end|
|000009f0| 20 72 65 70 65 61 74 0d | 20 20 20 20 70 75 74 20 | repeat.| put |
|00000a00| 72 6f 6c 6c 4f 76 65 72 | 28 63 6c 69 63 6b 4f 6e |rollOver|(clickOn|
|00000a10| 28 29 29 20 69 6e 74 6f | 20 52 0d 20 20 20 20 73 |()) into| R. s|
|00000a20| 65 74 20 74 68 65 20 6c | 6f 63 56 20 6f 66 20 73 |et the l|ocV of s|
|00000a30| 70 72 69 74 65 20 63 6c | 69 63 6b 4f 6e 28 29 20 |prite cl|ickOn() |
|00000a40| 3d 20 64 56 20 2d 20 31 | 0d 20 20 20 20 73 65 74 |= dV - 1|. set|
|00000a50| 20 74 68 65 20 6c 6f 63 | 48 20 6f 66 20 73 70 72 | the loc|H of spr|
|00000a60| 69 74 65 20 63 6c 69 63 | 6b 4f 6e 28 29 20 3d 20 |ite clic|kOn() = |
|00000a70| 64 48 20 2d 20 31 0d 20 | 20 20 20 75 70 44 61 74 |dH - 1. | upDat|
|00000a80| 65 53 74 61 67 65 0d 20 | 20 20 20 72 65 74 75 72 |eStage. | retur|
|00000a90| 6e 20 52 0d 65 6e 64 20 | 50 42 20 20 20 20 0d 0d |n R.end |PB ..|
|00000aa0| 0d 6f 6e 20 70 75 70 70 | 65 74 4f 6e 20 73 70 72 |.on pupp|etOn spr|
|00000ab0| 69 74 65 4e 75 6d 49 74 | 65 6d 0d 20 20 20 20 69 |iteNumIt|em. i|
|00000ac0| 66 20 69 6e 74 65 67 65 | 72 50 28 73 70 72 69 74 |f intege|rP(sprit|
|00000ad0| 65 4e 75 6d 49 74 65 6d | 29 20 74 68 65 6e 20 70 |eNumItem|) then p|
|00000ae0| 75 74 20 73 74 72 69 6e | 67 28 73 70 72 69 74 65 |ut strin|g(sprite|
|00000af0| 4e 75 6d 49 74 65 6d 29 | 20 69 6e 74 6f 20 73 70 |NumItem)| into sp|
|00000b00| 72 69 74 65 4e 75 6d 49 | 74 65 6d 0d 20 20 20 20 |riteNumI|tem. |
|00000b10| 72 65 70 65 61 74 20 77 | 69 74 68 20 6e 20 3d 20 |repeat w|ith n = |
|00000b20| 31 20 74 6f 20 74 68 65 | 20 6e 75 6d 62 65 72 20 |1 to the| number |
|00000b30| 6f 66 20 69 74 65 6d 73 | 20 69 6e 20 73 70 72 69 |of items| in spri|
|00000b40| 74 65 4e 75 6d 49 74 65 | 6d 0d 20 20 20 20 20 20 |teNumIte|m. |
|00000b50| 20 20 70 75 70 70 65 74 | 53 70 72 69 74 65 20 69 | puppet|Sprite i|
|00000b60| 6e 74 65 67 65 72 28 69 | 74 65 6d 20 6e 20 6f 66 |nteger(i|tem n of|
|00000b70| 20 73 70 72 69 74 65 4e | 75 6d 49 74 65 6d 29 2c | spriteN|umItem),|
|00000b80| 20 54 52 55 45 0d 20 20 | 20 20 65 6e 64 20 72 65 | TRUE. | end re|
|00000b90| 70 65 61 74 0d 65 6e 64 | 20 70 75 70 70 65 74 4f |peat.end| puppetO|
|00000ba0| 6e 0d 0d 0d 0d 6f 6e 20 | 70 75 70 70 65 74 4f 66 |n....on |puppetOf|
|00000bb0| 66 20 73 70 72 69 74 65 | 4e 75 6d 49 74 65 6d 0d |f sprite|NumItem.|
|00000bc0| 20 20 20 20 69 66 20 69 | 6e 74 65 67 65 72 50 28 | if i|ntegerP(|
|00000bd0| 73 70 72 69 74 65 4e 75 | 6d 49 74 65 6d 29 20 74 |spriteNu|mItem) t|
|00000be0| 68 65 6e 20 70 75 74 20 | 73 74 72 69 6e 67 28 73 |hen put |string(s|
|00000bf0| 70 72 69 74 65 4e 75 6d | 49 74 65 6d 29 20 69 6e |priteNum|Item) in|
|00000c00| 74 6f 20 73 70 72 69 74 | 65 4e 75 6d 49 74 65 6d |to sprit|eNumItem|
|00000c10| 0d 20 20 20 20 72 65 70 | 65 61 74 20 77 69 74 68 |. rep|eat with|
|00000c20| 20 6e 20 3d 20 31 20 74 | 6f 20 74 68 65 20 6e 75 | n = 1 t|o the nu|
|00000c30| 6d 62 65 72 20 6f 66 20 | 69 74 65 6d 73 20 69 6e |mber of |items in|
|00000c40| 20 73 70 72 69 74 65 4e | 75 6d 49 74 65 6d 0d 20 | spriteN|umItem. |
|00000c50| 20 20 20 20 20 20 20 70 | 75 70 70 65 74 53 70 72 | p|uppetSpr|
|00000c60| 69 74 65 20 69 6e 74 65 | 67 65 72 28 69 74 65 6d |ite inte|ger(item|
|00000c70| 20 6e 20 6f 66 20 73 70 | 72 69 74 65 4e 75 6d 49 | n of sp|riteNumI|
|00000c80| 74 65 6d 29 2c 20 46 41 | 4c 53 45 0d 20 20 20 20 |tem), FA|LSE. |
|00000c90| 65 6e 64 20 72 65 70 65 | 61 74 0d 65 6e 64 20 70 |end repe|at.end p|
|00000ca0| 75 70 70 65 74 4f 66 66 | 20 20 20 20 0d 0d 0d 0d |uppetOff| ....|
|00000cb0| 6f 6e 20 70 75 70 70 65 | 74 43 6c 65 61 72 0d 20 |on puppe|tClear. |
|00000cc0| 20 20 20 72 65 70 65 61 | 74 20 77 69 74 68 20 6e | repea|t with n|
|00000cd0| 20 3d 20 31 20 74 6f 20 | 32 34 0d 20 20 20 20 20 | = 1 to |24. |
|00000ce0| 20 20 20 69 66 20 74 68 | 65 20 74 79 70 65 20 6f | if th|e type o|
|00000cf0| 66 20 73 70 72 69 74 65 | 20 6e 20 3c 3e 20 30 20 |f sprite| n <> 0 |
|00000d00| 74 68 65 6e 20 70 75 70 | 70 65 74 53 70 72 69 74 |then pup|petSprit|
|00000d10| 65 20 6e 2c 20 46 41 4c | 53 45 0d 20 20 20 20 65 |e n, FAL|SE. e|
|00000d20| 6e 64 20 72 65 70 65 61 | 74 0d 65 6e 64 20 70 75 |nd repea|t.end pu|
|00000d30| 70 70 65 74 43 6c 65 61 | 72 20 20 20 20 0d 0d 0d |ppetClea|r ...|
|00000d40| 0d 6f 6e 20 70 75 70 70 | 65 74 41 6c 6c 20 20 20 |.on pupp|etAll |
|00000d50| 20 0d 20 20 20 20 72 65 | 70 65 61 74 20 77 69 74 | . re|peat wit|
|00000d60| 68 20 6e 20 3d 20 31 20 | 74 6f 20 32 34 0d 20 20 |h n = 1 |to 24. |
|00000d70| 20 20 20 20 20 20 69 66 | 20 74 68 65 20 74 79 70 | if| the typ|
|00000d80| 65 20 6f 66 20 73 70 72 | 69 74 65 20 6e 20 3c 3e |e of spr|ite n <>|
|00000d90| 20 30 20 74 68 65 6e 20 | 70 75 70 70 65 74 53 70 | 0 then |puppetSp|
|00000da0| 72 69 74 65 20 6e 2c 20 | 54 52 55 45 0d 20 20 20 |rite n, |TRUE. |
|00000db0| 20 65 6e 64 20 72 65 70 | 65 61 74 0d 65 6e 64 20 | end rep|eat.end |
|00000dc0| 70 75 70 70 65 74 41 6c | 6c 20 20 20 20 0d 0d 0d |puppetAl|l ...|
|00000dd0| 0d 6f 6e 20 63 75 72 43 | 68 61 6e 31 0d 20 20 20 |.on curC|han1. |
|00000de0| 20 77 68 65 6e 20 6d 6f | 75 73 65 44 6f 77 6e 20 | when mo|useDown |
|00000df0| 74 68 65 6e 20 6e 6f 74 | 68 69 6e 67 20 0d 20 20 |then not|hing . |
|00000e00| 20 20 63 75 72 73 6f 72 | 20 31 32 38 0d 20 20 20 | cursor| 128. |
|00000e10| 20 6c 6f 76 65 0d 20 20 | 20 20 63 75 72 73 6f 72 | love. | cursor|
|00000e20| 20 31 32 39 0d 20 20 20 | 20 6c 6f 76 65 0d 20 20 | 129. | love. |
|00000e30| 20 20 63 75 72 73 6f 72 | 20 31 33 30 0d 20 20 20 | cursor| 130. |
|00000e40| 20 6c 6f 76 65 0d 20 20 | 20 20 63 75 72 73 6f 72 | love. | cursor|
|00000e50| 20 31 33 31 0d 20 20 20 | 20 6c 6f 76 65 0d 20 20 | 131. | love. |
|00000e60| 20 20 63 75 72 73 6f 72 | 20 31 33 32 0d 20 20 20 | cursor| 132. |
|00000e70| 20 6c 6f 76 65 0d 20 20 | 20 20 63 75 72 73 6f 72 | love. | cursor|
|00000e80| 20 31 33 33 0d 65 6e 64 | 20 63 75 72 43 68 61 6e | 133.end| curChan|
|00000e90| 31 0d 0d 0d 6f 6e 20 63 | 75 72 43 68 61 6e 32 0d |1...on c|urChan2.|
|00000ea0| 20 20 20 20 77 68 65 6e | 20 6d 6f 75 73 65 44 6f | when| mouseDo|
|00000eb0| 77 6e 20 74 68 65 6e 20 | 6e 6f 74 68 69 6e 67 20 |wn then |nothing |
|00000ec0| 0d 20 20 20 20 63 75 72 | 73 6f 72 20 31 38 37 0d |. cur|sor 187.|
|00000ed0| 20 20 20 20 6c 6f 76 65 | 0d 20 20 20 20 63 75 72 | love|. cur|
|00000ee0| 73 6f 72 20 31 38 38 0d | 20 20 20 20 6c 6f 76 65 |sor 188.| love|
|00000ef0| 0d 20 20 20 20 63 75 72 | 73 6f 72 20 31 38 39 0d |. cur|sor 189.|
|00000f00| 20 20 20 20 6c 6f 76 65 | 0d 20 20 20 20 63 75 72 | love|. cur|
|00000f10| 73 6f 72 20 31 39 30 0d | 20 20 20 20 6c 6f 76 65 |sor 190.| love|
|00000f20| 0d 20 20 20 20 63 75 72 | 73 6f 72 20 31 39 31 0d |. cur|sor 191.|
|00000f30| 20 20 20 20 6c 6f 76 65 | 20 0d 20 20 20 20 63 75 | love| . cu|
|00000f40| 72 73 6f 72 20 31 39 32 | 0d 20 20 20 20 6c 6f 76 |rsor 192|. lov|
|00000f50| 65 0d 20 20 20 20 63 75 | 72 73 6f 72 20 31 39 33 |e. cu|rsor 193|
|00000f60| 0d 65 6e 64 20 63 75 72 | 43 68 61 6e 32 0d 0d 0d |.end cur|Chan2...|
|00000f70| 6f 6e 20 63 75 72 43 68 | 61 6e 33 0d 20 20 20 20 |on curCh|an3. |
|00000f80| 77 68 65 6e 20 6d 6f 75 | 73 65 44 6f 77 6e 20 74 |when mou|seDown t|
|00000f90| 68 65 6e 20 6e 6f 74 68 | 69 6e 67 20 0d 20 20 20 |hen noth|ing . |
|00000fa0| 20 63 75 72 73 6f 72 20 | 31 37 31 0d 20 20 20 20 | cursor |171. |
|00000fb0| 6c 6f 76 65 0d 20 20 20 | 20 63 75 72 73 6f 72 20 |love. | cursor |
|00000fc0| 31 37 32 0d 20 20 20 20 | 6c 6f 76 65 0d 20 20 20 |172. |love. |
|00000fd0| 20 63 75 72 73 6f 72 20 | 31 37 33 0d 20 20 20 20 | cursor |173. |
|00000fe0| 6c 6f 76 65 0d 20 20 20 | 20 63 75 72 73 6f 72 20 |love. | cursor |
|00000ff0| 31 37 34 0d 20 20 20 20 | 6c 6f 76 65 0d 20 20 20 |174. |love. |
|00001000| 20 63 75 72 73 6f 72 20 | 31 37 35 0d 20 20 20 20 | cursor |175. |
|00001010| 6c 6f 76 65 0d 20 20 20 | 20 63 75 72 73 6f 72 20 |love. | cursor |
|00001020| 31 37 36 0d 65 6e 64 20 | 63 75 72 43 68 61 6e 33 |176.end |curChan3|
|00001030| 20 20 20 20 0d 0d 0d 6f | 6e 20 63 75 72 73 6f 72 | ...o|n cursor|
|00001040| 4e 75 6d 62 65 72 0d 20 | 20 20 20 77 68 65 6e 20 |Number. | when |
|00001050| 6d 6f 75 73 65 44 6f 77 | 6e 20 74 68 65 6e 20 63 |mouseDow|n then c|
|00001060| 75 72 73 6f 72 20 33 30 | 34 0d 65 6e 64 20 63 75 |ursor 30|4.end cu|
|00001070| 72 73 6f 72 4e 75 6d 62 | 65 72 20 20 20 0d 0d 0d |rsorNumb|er ...|
|00001080| 6f 6e 20 63 75 72 73 6f | 72 4e 75 6d 62 65 72 32 |on curso|rNumber2|
|00001090| 30 30 0d 20 20 20 20 63 | 75 72 73 6f 72 20 32 30 |00. c|ursor 20|
|000010a0| 30 0d 65 6e 64 20 63 75 | 72 73 6f 72 4e 75 6d 62 |0.end cu|rsorNumb|
|000010b0| 65 72 32 30 30 20 20 20 | 0d 0d 0d 6f 6e 20 63 75 |er200 |...on cu|
|000010c0| 72 73 6f 72 4e 75 6d 62 | 65 72 32 36 30 0d 20 20 |rsorNumb|er260. |
|000010d0| 20 20 63 75 72 73 6f 72 | 20 32 36 30 0d 65 6e 64 | cursor| 260.end|
|000010e0| 20 63 75 72 73 6f 72 4e | 75 6d 62 65 72 32 36 30 | cursorN|umber260|
|000010f0| 20 20 20 20 0d 0d 0d 6f | 6e 20 63 75 72 73 6f 72 | ...o|n cursor|
|00001100| 4e 75 6d 62 65 72 32 38 | 30 0d 20 20 20 20 63 75 |Number28|0. cu|
|00001110| 72 73 6f 72 20 32 38 30 | 0d 65 6e 64 20 63 75 72 |rsor 280|.end cur|
|00001120| 73 6f 72 4e 75 6d 62 65 | 72 32 38 30 20 20 20 20 |sorNumbe|r280 |
|00001130| 0d 0d 0d 6f 6e 20 63 75 | 72 73 6f 72 4e 75 6d 62 |...on cu|rsorNumb|
|00001140| 65 72 33 30 33 0d 20 20 | 20 20 63 75 72 73 6f 72 |er303. | cursor|
|00001150| 20 33 30 33 0d 65 6e 64 | 20 63 75 72 73 6f 72 4e | 303.end| cursorN|
|00001160| 75 6d 62 65 72 33 30 33 | 20 20 20 20 0d 0d 0d 6f |umber303| ...o|
|00001170| 6e 20 63 75 72 73 6f 72 | 4e 75 6d 62 65 72 33 30 |n cursor|Number30|
|00001180| 35 0d 20 20 20 20 63 75 | 72 73 6f 72 20 33 30 35 |5. cu|rsor 305|
|00001190| 0d 65 6e 64 20 63 75 72 | 73 6f 72 4e 75 6d 62 65 |.end cur|sorNumbe|
|000011a0| 72 33 30 35 20 20 20 0d | 0d 0d 6f 6e 20 63 75 72 |r305 .|..on cur|
|000011b0| 73 6f 72 4e 75 6d 62 65 | 72 33 30 36 0d 20 20 20 |sorNumbe|r306. |
|000011c0| 20 63 75 72 73 6f 72 20 | 33 30 36 0d 65 6e 64 20 | cursor |306.end |
|000011d0| 63 75 72 73 6f 72 4e 75 | 6d 62 65 72 33 30 36 20 |cursorNu|mber306 |
|000011e0| 20 20 20 0d 0d 0d 6f 6e | 20 63 75 72 73 6f 72 4e | ...on| cursorN|
|000011f0| 75 6d 62 65 72 33 30 37 | 0d 20 20 20 20 63 75 72 |umber307|. cur|
|00001200| 73 6f 72 20 33 30 37 0d | 65 6e 64 20 63 75 72 73 |sor 307.|end curs|
|00001210| 6f 72 4e 75 6d 62 65 72 | 33 30 37 20 20 20 20 0d |orNumber|307 .|
|00001220| 0d 0d 6f 6e 20 63 75 72 | 73 6f 72 4e 75 6d 62 65 |..on cur|sorNumbe|
|00001230| 72 33 30 38 0d 20 20 20 | 20 63 75 72 73 6f 72 20 |r308. | cursor |
|00001240| 33 30 38 0d 65 6e 64 20 | 63 75 72 73 6f 72 4e 75 |308.end |cursorNu|
|00001250| 6d 62 65 72 33 30 38 20 | 20 20 0d 0d 0d 6f 6e 20 |mber308 | ...on |
|00001260| 63 75 72 73 6f 72 4e 75 | 6d 62 65 72 33 30 39 0d |cursorNu|mber309.|
|00001270| 20 20 20 20 63 75 72 73 | 6f 72 20 33 30 39 0d 65 | curs|or 309.e|
|00001280| 6e 64 20 63 75 72 73 6f | 72 4e 75 6d 62 65 72 33 |nd curso|rNumber3|
|00001290| 30 39 0d 0d 0d 6f 6e 20 | 63 75 72 73 6f 72 4e 75 |09...on |cursorNu|
|000012a0| 6d 62 65 72 33 31 30 0d | 20 20 20 20 63 75 72 73 |mber310.| curs|
|000012b0| 6f 72 20 33 31 30 0d 65 | 6e 64 20 63 75 72 73 6f |or 310.e|nd curso|
|000012c0| 72 4e 75 6d 62 65 72 33 | 31 30 20 20 20 20 0d 0d |rNumber3|10 ..|
|000012d0| 0d 6f 6e 20 63 75 72 73 | 6f 72 4e 75 6d 62 65 72 |.on curs|orNumber|
|000012e0| 31 0d 20 20 20 20 63 75 | 72 73 6f 72 20 2d 31 0d |1. cu|rsor -1.|
|000012f0| 65 6e 64 20 63 75 72 73 | 6f 72 4e 75 6d 62 65 72 |end curs|orNumber|
|00001300| 31 20 20 20 20 0d 0d 0d | 6f 6e 20 64 72 61 67 53 |1 ...|on dragS|
|00001310| 70 63 69 61 6c 0d 20 20 | 20 20 70 75 70 70 65 74 |pcial. | puppet|
|00001320| 53 70 72 69 74 65 20 63 | 6c 69 63 6b 4f 6e 28 29 |Sprite c|lickOn()|
|00001330| 2c 20 54 52 55 45 0d 20 | 20 20 20 0d 20 20 20 20 |, TRUE. | . |
|00001340| 70 75 74 20 6d 6f 75 73 | 65 48 28 29 20 2d 20 74 |put mous|eH() - t|
|00001350| 68 65 20 6c 6f 63 48 20 | 6f 66 20 73 70 72 69 74 |he locH |of sprit|
|00001360| 65 20 63 6c 69 63 6b 4f | 6e 28 29 20 69 6e 74 6f |e clickO|n() into|
|00001370| 20 6d 48 0d 20 20 20 20 | 70 75 74 20 6d 6f 75 73 | mH. |put mous|
|00001380| 65 56 28 29 20 2d 20 74 | 68 65 20 6c 6f 63 56 20 |eV() - t|he locV |
|00001390| 6f 66 20 73 70 72 69 74 | 65 20 63 6c 69 63 6b 4f |of sprit|e clickO|
|000013a0| 6e 28 29 20 69 6e 74 6f | 20 6d 56 0d 20 20 20 20 |n() into| mV. |
|000013b0| 0d 20 20 20 20 72 65 70 | 65 61 74 20 77 68 69 6c |. rep|eat whil|
|000013c0| 65 20 73 74 69 6c 6c 44 | 6f 77 6e 28 29 0d 20 20 |e stillD|own(). |
|000013d0| 20 20 20 20 20 20 73 65 | 74 20 74 68 65 20 6c 6f | se|t the lo|
|000013e0| 63 48 20 6f 66 20 73 70 | 72 69 74 65 20 63 6c 69 |cH of sp|rite cli|
|000013f0| 63 6b 4f 6e 28 29 20 3d | 20 6d 6f 75 73 65 48 28 |ckOn() =| mouseH(|
|00001400| 29 20 2d 20 6d 48 0d 20 | 20 20 20 20 20 20 20 73 |) - mH. | s|
|00001410| 65 74 20 74 68 65 20 6c | 6f 63 56 20 6f 66 20 73 |et the l|ocV of s|
|00001420| 70 72 69 74 65 20 63 6c | 69 63 6b 4f 6e 28 29 20 |prite cl|ickOn() |
|00001430| 3d 20 6d 6f 75 73 65 56 | 28 29 20 2d 20 6d 56 0d |= mouseV|() - mV.|
|00001440| 20 20 20 20 20 20 20 20 | 75 70 44 61 74 65 53 74 | |upDateSt|
|00001450| 61 67 65 0d 20 20 20 20 | 65 6e 64 20 72 65 70 65 |age. |end repe|
|00001460| 61 74 0d 65 6e 64 20 64 | 72 61 67 53 70 63 69 61 |at.end d|ragSpcia|
|00001470| 6c 20 20 20 20 0d 0d 0d | 6f 6e 20 6d 6f 76 65 53 |l ...|on moveS|
|00001480| 70 72 69 74 65 20 73 70 | 4e 75 6d 2c 20 48 2c 20 |prite sp|Num, H, |
|00001490| 56 0d 20 20 20 20 0d 20 | 20 20 20 70 75 74 20 35 |V. . | put 5|
|000014a0| 20 69 6e 74 6f 20 6d 6f | 76 65 52 61 74 65 0d 20 | into mo|veRate. |
|000014b0| 20 20 20 0d 20 20 20 20 | 70 75 70 70 65 74 53 70 | . |puppetSp|
|000014c0| 72 69 74 65 20 73 70 4e | 75 6d 2c 20 54 52 55 45 |rite spN|um, TRUE|
|000014d0| 0d 20 20 20 20 70 75 74 | 20 74 68 65 20 6c 6f 63 |. put| the loc|
|000014e0| 48 20 6f 66 20 73 70 72 | 69 74 65 20 73 70 4e 75 |H of spr|ite spNu|
|000014f0| 6d 20 69 6e 74 6f 20 73 | 48 0d 20 20 20 20 70 75 |m into s|H. pu|
|00001500| 74 20 74 68 65 20 6c 6f | 63 56 20 6f 66 20 73 70 |t the lo|cV of sp|
|00001510| 72 69 74 65 20 73 70 4e | 75 6d 20 69 6e 74 6f 20 |rite spN|um into |
|00001520| 73 56 0d 20 20 20 20 0d | 20 20 20 20 70 75 74 20 |sV. .| put |
|00001530| 48 20 2d 20 73 48 20 69 | 6e 74 6f 20 6d 6f 76 65 |H - sH i|nto move|
|00001540| 48 20 0d 20 20 20 20 70 | 75 74 20 56 20 2d 20 73 |H . p|ut V - s|
|00001550| 56 20 69 6e 74 6f 20 6d | 6f 76 65 56 0d 20 20 20 |V into m|oveV. |
|00001560| 20 0d 20 20 20 20 70 75 | 74 20 61 62 73 28 6d 6f | . pu|t abs(mo|
|00001570| 76 65 48 20 2a 20 28 61 | 62 73 28 6d 6f 76 65 48 |veH * (a|bs(moveH|
|00001580| 29 20 3e 3d 20 61 62 73 | 28 6d 6f 76 65 56 29 29 |) >= abs|(moveV))|
|00001590| 20 2b 20 c2 0d 20 20 20 | 20 6d 6f 76 65 56 20 2a | + .. | moveV *|
|000015a0| 20 28 61 62 73 28 6d 6f | 76 65 48 29 20 3c 20 61 | (abs(mo|veH) < a|
|000015b0| 62 73 28 6d 6f 76 65 56 | 29 29 29 20 69 6e 74 6f |bs(moveV|))) into|
|000015c0| 20 72 65 70 65 61 74 54 | 69 6d 65 0d 20 20 20 20 | repeatT|ime. |
|000015d0| 0d 20 20 20 20 69 66 20 | 72 65 70 65 61 74 54 69 |. if |repeatTi|
|000015e0| 6d 65 20 3c 3e 20 30 20 | 74 68 65 6e 0d 20 20 20 |me <> 0 |then. |
|000015f0| 20 20 20 20 20 0d 20 20 | 20 20 20 20 20 20 69 66 | . | if|
|00001600| 20 6d 6f 76 65 48 20 3c | 3e 20 30 20 74 68 65 6e | moveH <|> 0 then|
|00001610| 20 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 70 75 | . | pu|
|00001620| 74 20 28 61 62 73 28 6d | 6f 76 65 48 29 20 3e 3d |t (abs(m|oveH) >=|
|00001630| 20 61 62 73 28 6d 6f 76 | 65 56 29 29 20 2a 20 6d | abs(mov|eV)) * m|
|00001640| 6f 76 65 48 20 2f 20 61 | 62 73 28 6d 6f 76 65 48 |oveH / a|bs(moveH|
|00001650| 29 20 2b c2 0d 20 20 20 | 20 20 20 20 20 20 20 20 |) +.. | |
|00001660| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 61 62 | | (ab|
|00001670| 73 28 6d 6f 76 65 48 29 | 20 3c 20 61 62 73 28 6d |s(moveH)| < abs(m|
|00001680| 6f 76 65 56 29 29 20 2a | 20 31 2e 30 20 2a 20 6d |oveV)) *| 1.0 * m|
|00001690| 6f 76 65 48 20 2f 20 72 | 65 70 65 61 74 54 69 6d |oveH / r|epeatTim|
|000016a0| 65 20 69 6e 74 6f 20 70 | 6c 75 73 48 0d 20 20 20 |e into p|lusH. |
|000016b0| 20 20 20 20 20 65 6c 73 | 65 20 70 75 74 20 30 20 | els|e put 0 |
|000016c0| 69 6e 74 6f 20 70 6c 75 | 73 48 0d 20 20 20 20 20 |into plu|sH. |
|000016d0| 20 20 20 69 66 20 6d 6f | 76 65 56 20 3c 3e 20 30 | if mo|veV <> 0|
|000016e0| 20 74 68 65 6e 0d 20 20 | 20 20 20 20 20 20 20 20 | then. | |
|000016f0| 20 20 70 75 74 20 28 61 | 62 73 28 6d 6f 76 65 56 | put (a|bs(moveV|
|00001700| 29 20 3e 3d 20 61 62 73 | 28 6d 6f 76 65 48 29 29 |) >= abs|(moveH))|
|00001710| 20 2a 20 6d 6f 76 65 56 | 20 2f 20 61 62 73 28 6d | * moveV| / abs(m|
|00001720| 6f 76 65 56 29 20 2b c2 | 0d 20 20 20 20 20 20 20 |oveV) +.|. |
|00001730| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001740| 20 28 61 62 73 28 6d 6f | 76 65 56 29 20 3c 20 61 | (abs(mo|veV) < a|
|00001750| 62 73 28 6d 6f 76 65 48 | 29 29 20 2a 20 31 2e 30 |bs(moveH|)) * 1.0|
|00001760| 20 2a 20 6d 6f 76 65 56 | 20 2f 20 72 65 70 65 61 | * moveV| / repea|
|00001770| 74 54 69 6d 65 20 69 6e | 74 6f 20 70 6c 75 73 56 |tTime in|to plusV|
|00001780| 0d 20 20 20 20 20 20 20 | 20 65 6c 73 65 20 70 75 |. | else pu|
|00001790| 74 20 30 20 69 6e 74 6f | 20 70 6c 75 73 56 0d 20 |t 0 into| plusV. |
|000017a0| 20 20 20 20 20 20 20 0d | 20 20 20 20 20 20 20 20 | .| |
|000017b0| 72 65 70 65 61 74 20 77 | 69 74 68 20 6e 20 3d 20 |repeat w|ith n = |
|000017c0| 35 30 30 20 74 6f 20 72 | 65 70 65 61 74 54 69 6d |500 to r|epeatTim|
|000017d0| 65 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 0d 20 |e. | . |
|000017e0| 20 20 20 20 20 20 20 20 | 20 20 20 70 75 74 20 73 | | put s|
|000017f0| 48 20 2b 20 70 6c 75 73 | 48 20 69 6e 74 6f 20 73 |H + plus|H into s|
|00001800| 48 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 70 75 |H. | pu|
|00001810| 74 20 73 56 20 2b 20 70 | 6c 75 73 56 20 69 6e 74 |t sV + p|lusV int|
|00001820| 6f 20 73 56 0d 20 20 20 | 20 20 20 20 20 20 20 20 |o sV. | |
|00001830| 20 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 73 65 | . | se|
|00001840| 74 20 74 68 65 20 6c 6f | 63 48 20 6f 66 20 73 70 |t the lo|cH of sp|
|00001850| 72 69 74 65 20 73 70 4e | 75 6d 20 3d 20 69 6e 74 |rite spN|um = int|
|00001860| 65 67 65 72 28 73 48 29 | 0d 20 20 20 20 20 20 20 |eger(sH)|. |
|00001870| 20 20 20 20 20 73 65 74 | 20 74 68 65 20 6c 6f 63 | set| the loc|
|00001880| 56 20 6f 66 20 73 70 72 | 69 74 65 20 73 70 4e 75 |V of spr|ite spNu|
|00001890| 6d 20 3d 20 69 6e 74 65 | 67 65 72 28 73 56 29 0d |m = inte|ger(sV).|
|000018a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 75 70 44 61 | | upDa|
|000018b0| 74 65 53 74 61 67 65 0d | 20 20 20 20 20 20 20 20 |teStage.| |
|000018c0| 20 20 20 20 0d 20 20 20 | 20 20 20 20 20 65 6e 64 | . | end|
|000018d0| 20 72 65 70 65 61 74 0d | 20 20 20 20 20 20 20 20 | repeat.| |
|000018e0| 0d 20 20 20 20 65 6e 64 | 20 69 66 0d 20 20 20 20 |. end| if. |
|000018f0| 0d 20 20 20 20 73 65 74 | 20 74 68 65 20 6c 6f 63 |. set| the loc|
|00001900| 48 20 6f 66 20 73 70 72 | 69 74 65 20 73 70 4e 75 |H of spr|ite spNu|
|00001910| 6d 20 3d 20 48 0d 20 20 | 20 20 73 65 74 20 74 68 |m = H. | set th|
|00001920| 65 20 6c 6f 63 56 20 6f | 66 20 73 70 72 69 74 65 |e locV o|f sprite|
|00001930| 20 73 70 4e 75 6d 20 3d | 20 56 0d 20 20 20 20 75 | spNum =| V. u|
|00001940| 70 64 61 74 65 53 74 61 | 67 65 0d 65 6e 64 20 6d |pdateSta|ge.end m|
|00001950| 6f 76 65 53 70 72 69 74 | 65 20 20 20 20 0d 0d 0d |oveSprit|e ...|
|00001960| 6f 6e 20 67 69 76 65 55 | 70 4b 65 79 0d 20 20 20 |on giveU|pKey. |
|00001970| 20 69 66 20 74 68 65 20 | 6b 65 79 43 6f 64 65 20 | if the |keyCode |
|00001980| 3d 20 35 33 20 74 68 65 | 6e 20 67 6f 20 74 6f 20 |= 53 the|n go to |
|00001990| 22 4e 45 58 54 22 0d 20 | 20 20 20 65 6c 73 65 0d |"NEXT". | else.|
|000019a0| 20 20 20 20 20 20 20 20 | 69 66 20 74 68 65 20 6b | |if the k|
|000019b0| 65 79 43 6f 64 65 20 3d | 20 33 36 20 74 68 65 6e |eyCode =| 36 then|
|000019c0| 20 70 6c 61 79 20 22 50 | 61 6e 69 63 22 0d 20 20 | play "P|anic". |
|000019d0| 20 20 20 20 20 20 65 6c | 73 65 0d 20 20 20 20 20 | el|se. |
|000019e0| 20 20 20 20 20 20 20 69 | 66 20 6b 65 79 28 29 20 | i|f key() |
|000019f0| 3d 20 22 51 22 20 61 6e | 64 20 63 6f 6d 6d 61 6e |= "Q" an|d comman|
|00001a00| 64 44 6f 77 6e 28 29 20 | 74 68 65 6e 20 70 6c 61 |dDown() |then pla|
|00001a10| 79 20 22 51 75 69 74 22 | 0d 20 20 20 20 20 20 20 |y "Quit"|. |
|00001a20| 20 65 6e 64 20 69 66 0d | 20 20 20 20 65 6e 64 20 | end if.| end |
|00001a30| 69 66 0d 65 6e 64 20 69 | 66 20 20 20 0d 65 6e 64 |if.end i|f .end|
|00001a40| 20 67 69 76 65 55 70 4b | 65 79 0d 0d 0d 0d 6f 6e | giveUpK|ey....on|
|00001a50| 20 63 6f 6c 6f 72 43 68 | 61 6e 67 65 0d 73 65 74 | colorCh|ange.set|
|00001a60| 20 74 68 65 20 63 6f 6c | 6f 72 44 65 70 74 68 20 | the col|orDepth |
|00001a70| 3d 33 32 0d 69 66 20 63 | 6f 6c 6f 72 44 65 70 74 |=32.if c|olorDept|
|00001a80| 68 28 29 20 3d 20 33 32 | 20 74 68 65 6e 20 73 65 |h() = 32| then se|
|00001a90| 74 20 4f 48 54 53 55 4b | 49 20 3d 20 33 32 20 20 |t OHTSUK|I = 32 |
|00001aa0| 20 0d 65 6c 73 65 0d 73 | 65 74 20 74 68 65 20 63 | .else.s|et the c|
|00001ab0| 6f 6c 6f 72 44 65 70 74 | 68 20 3d 31 36 0d 69 66 |olorDept|h =16.if|
|00001ac0| 20 63 6f 6c 6f 72 44 65 | 70 74 68 28 29 20 3d 20 | colorDe|pth() = |
|00001ad0| 31 36 20 74 68 65 6e 20 | 73 65 74 20 4f 48 54 53 |16 then |set OHTS|
|00001ae0| 55 4b 49 20 3d 20 31 36 | 20 20 20 20 0d 65 6c 73 |UKI = 16| .els|
|00001af0| 65 0d 73 65 74 20 74 68 | 65 20 63 6f 6c 6f 72 44 |e.set th|e colorD|
|00001b00| 65 70 74 68 20 3d 38 0d | 69 66 20 63 6f 6c 6f 72 |epth =8.|if color|
|00001b10| 44 65 70 74 68 28 29 20 | 3d 20 38 20 74 68 65 6e |Depth() |= 8 then|
|00001b20| 20 73 65 74 20 4f 48 54 | 53 55 4b 49 20 3d 20 38 | set OHT|SUKI = 8|
|00001b30| 20 20 20 20 0d 65 6e 64 | 20 69 66 0d 65 6e 64 20 | .end| if.end |
|00001b40| 69 66 0d 65 6e 64 20 69 | 66 20 0d 65 6e 64 20 63 |if.end i|f .end c|
|00001b50| 6f 6c 6f 72 43 68 61 6e | 67 65 0d 0d 0d 6f 6e 20 |olorChan|ge...on |
|00001b60| 63 6f 6c 6f 72 43 68 61 | 6e 67 65 38 0d 73 65 74 |colorCha|nge8.set|
|00001b70| 20 74 68 65 20 63 6f 6c | 6f 72 44 65 70 74 68 20 | the col|orDepth |
|00001b80| 3d 20 38 20 0d 65 6e 64 | 20 63 6f 6c 6f 72 43 68 |= 8 .end| colorCh|
|00001b90| 61 6e 67 65 38 0d 0d 0d | 0d 6f 6e 20 66 69 72 73 |ange8...|.on firs|
|00001ba0| 74 0d 70 75 74 20 22 22 | 20 69 6e 74 6f 20 66 69 |t.put ""| into fi|
|00001bb0| 65 6c 64 20 22 61 64 64 | 46 69 65 6c 64 22 0d 70 |eld "add|Field".p|
|00001bc0| 75 74 20 22 30 22 20 69 | 6e 74 6f 20 66 69 65 6c |ut "0" i|nto fiel|
|00001bd0| 64 20 22 66 6f 72 31 22 | 0d 70 75 74 20 22 30 22 |d "for1"|.put "0"|
|00001be0| 20 69 6e 74 6f 20 66 69 | 65 6c 64 20 22 66 6f 72 | into fi|eld "for|
|00001bf0| 32 22 0d 70 75 74 20 22 | 30 22 20 69 6e 74 6f 20 |2".put "|0" into |
|00001c00| 66 69 65 6c 64 20 22 66 | 6f 72 33 22 0d 65 6e 64 |field "f|or3".end|
|00001c10| 20 66 69 72 73 74 0d 0d | 6f 6e 20 75 70 64 61 74 | first..|on updat|
|00001c20| 65 6b 75 72 6f 0d 67 6c | 6f 62 61 6c 20 6b 75 72 |ekuro.gl|obal kur|
|00001c30| 6f 4e 75 6d 62 65 72 0d | 70 75 70 70 65 74 53 70 |oNumber.|puppetSp|
|00001c40| 72 69 74 65 20 32 2c 20 | 74 72 75 65 0d 69 66 20 |rite 2, |true.if |
|00001c50| 6b 75 72 6f 4e 75 6d 62 | 65 72 20 3e 20 31 35 20 |kuroNumb|er > 15 |
|00001c60| 74 68 65 6e 20 73 65 74 | 20 6b 75 72 6f 4e 75 6d |then set| kuroNum|
|00001c70| 62 65 72 20 3d 20 38 0d | 73 65 74 20 6b 75 72 6f |ber = 8.|set kuro|
|00001c80| 4e 75 6d 62 65 72 20 3d | 20 6b 75 72 6f 4e 75 6d |Number =| kuroNum|
|00001c90| 62 65 72 20 2b 20 31 0d | 73 65 74 20 74 68 65 20 |ber + 1.|set the |
|00001ca0| 63 61 73 74 4e 75 6d 20 | 6f 66 20 73 70 72 69 74 |castNum |of sprit|
|00001cb0| 65 20 32 20 74 6f 20 6b | 75 72 6f 4e 75 6d 62 65 |e 2 to k|uroNumbe|
|00001cc0| 72 0d 65 6e 64 20 75 70 | 64 61 74 65 6b 75 72 6f |r.end up|datekuro|
|00001cd0| 20 20 20 20 0d 0d 6f 6e | 20 75 70 64 61 74 65 73 | ..on| updates|
|00001ce0| 69 72 6f 0d 67 6c 6f 62 | 61 6c 20 73 69 72 6f 4e |iro.glob|al siroN|
|00001cf0| 75 6d 62 65 72 0d 70 75 | 70 70 65 74 53 70 72 69 |umber.pu|ppetSpri|
|00001d00| 74 65 20 33 2c 20 74 72 | 75 65 0d 69 66 20 73 69 |te 3, tr|ue.if si|
|00001d10| 72 6f 4e 75 6d 62 65 72 | 20 3e 20 32 33 20 74 68 |roNumber| > 23 th|
|00001d20| 65 6e 20 73 65 74 20 73 | 69 72 6f 4e 75 6d 62 65 |en set s|iroNumbe|
|00001d30| 72 20 3d 20 31 36 0d 73 | 65 74 20 73 69 72 6f 4e |r = 16.s|et siroN|
|00001d40| 75 6d 62 65 72 20 3d 20 | 73 69 72 6f 4e 75 6d 62 |umber = |siroNumb|
|00001d50| 65 72 20 2b 20 31 0d 73 | 65 74 20 74 68 65 20 63 |er + 1.s|et the c|
|00001d60| 61 73 74 4e 75 6d 20 6f | 66 20 73 70 72 69 74 65 |astNum o|f sprite|
|00001d70| 20 33 20 74 6f 20 73 69 | 72 6f 4e 75 6d 62 65 72 | 3 to si|roNumber|
|00001d80| 0d 65 6e 64 20 75 70 64 | 61 74 65 73 69 72 6f 20 |.end upd|atesiro |
|00001d90| 20 20 20 0d 0d 6f 6e 20 | 75 70 64 61 74 65 6d 69 | ..on |updatemi|
|00001da0| 64 6f 72 69 0d 67 6c 6f | 62 61 6c 20 6d 69 64 6f |dori.glo|bal mido|
|00001db0| 72 69 4e 75 6d 62 65 72 | 0d 70 75 70 70 65 74 53 |riNumber|.puppetS|
|00001dc0| 70 72 69 74 65 20 34 2c | 20 74 72 75 65 0d 69 66 |prite 4,| true.if|
|00001dd0| 20 6d 69 64 6f 72 69 4e | 75 6d 62 65 72 20 3e 20 | midoriN|umber > |
|00001de0| 33 31 20 74 68 65 6e 20 | 73 65 74 20 6d 69 64 6f |31 then |set mido|
|00001df0| 72 69 4e 75 6d 62 65 72 | 20 3d 20 32 34 0d 73 65 |riNumber| = 24.se|
|00001e00| 74 20 6d 69 64 6f 72 69 | 4e 75 6d 62 65 72 20 3d |t midori|Number =|
|00001e10| 20 6d 69 64 6f 72 69 4e | 75 6d 62 65 72 20 2b 20 | midoriN|umber + |
|00001e20| 31 0d 73 65 74 20 74 68 | 65 20 63 61 73 74 4e 75 |1.set th|e castNu|
|00001e30| 6d 20 6f 66 20 73 70 72 | 69 74 65 20 34 20 74 6f |m of spr|ite 4 to|
|00001e40| 20 6d 69 64 6f 72 69 4e | 75 6d 62 65 72 0d 65 6e | midoriN|umber.en|
|00001e50| 64 20 75 70 64 61 74 65 | 6d 69 64 6f 72 69 20 20 |d update|midori |
|00001e60| 20 20 0d 0d 6f 6e 20 75 | 70 64 61 74 65 57 61 6b | ..on u|pdateWak|
|00001e70| 75 0d 67 6c 6f 62 61 6c | 20 77 61 6b 75 4e 75 6d |u.global| wakuNum|
|00001e80| 62 65 72 0d 70 75 70 70 | 65 74 53 70 72 69 74 65 |ber.pupp|etSprite|
|00001e90| 20 39 2c 20 74 72 75 65 | 0d 70 75 70 70 65 74 53 | 9, true|.puppetS|
|00001ea0| 70 72 69 74 65 20 31 30 | 2c 20 74 72 75 65 0d 70 |prite 10|, true.p|
|00001eb0| 75 70 70 65 74 53 70 72 | 69 74 65 20 31 31 2c 20 |uppetSpr|ite 11, |
|00001ec0| 74 72 75 65 0d 69 66 20 | 77 61 6b 75 4e 75 6d 62 |true.if |wakuNumb|
|00001ed0| 65 72 20 3e 20 38 31 20 | 74 68 65 6e 20 73 65 74 |er > 81 |then set|
|00001ee0| 20 77 61 6b 75 4e 75 6d | 62 65 72 20 3d 20 37 33 | wakuNum|ber = 73|
|00001ef0| 0d 73 65 74 20 77 61 6b | 75 4e 75 6d 62 65 72 20 |.set wak|uNumber |
|00001f00| 3d 20 77 61 6b 75 4e 75 | 6d 62 65 72 20 2b 20 31 |= wakuNu|mber + 1|
|00001f10| 0d 73 65 74 20 74 68 65 | 20 63 61 73 74 4e 75 6d |.set the| castNum|
|00001f20| 20 6f 66 20 73 70 72 69 | 74 65 20 39 20 74 6f 20 | of spri|te 9 to |
|00001f30| 77 61 6b 75 4e 75 6d 62 | 65 72 0d 73 65 74 20 74 |wakuNumb|er.set t|
|00001f40| 68 65 20 63 61 73 74 4e | 75 6d 20 6f 66 20 73 70 |he castN|um of sp|
|00001f50| 72 69 74 65 20 31 30 20 | 74 6f 20 77 61 6b 75 4e |rite 10 |to wakuN|
|00001f60| 75 6d 62 65 72 0d 73 65 | 74 20 74 68 65 20 63 61 |umber.se|t the ca|
|00001f70| 73 74 4e 75 6d 20 6f 66 | 20 73 70 72 69 74 65 20 |stNum of| sprite |
|00001f80| 31 31 20 74 6f 20 77 61 | 6b 75 4e 75 6d 62 65 72 |11 to wa|kuNumber|
|00001f90| 0d 65 6e 64 20 75 70 64 | 61 74 65 57 61 6b 75 0d |.end upd|ateWaku.|
|00001fa0| 0d 6f 6e 20 69 72 6f 69 | 6e 69 74 0d 75 70 64 61 |.on iroi|nit.upda|
|00001fb0| 74 65 6b 75 72 6f 0d 75 | 70 64 61 74 65 73 69 72 |tekuro.u|pdatesir|
|00001fc0| 6f 0d 75 70 64 61 74 65 | 6d 69 64 6f 72 69 0d 65 |o.update|midori.e|
|00001fd0| 6e 64 20 69 72 6f 69 6e | 69 74 20 20 20 20 0d 0d |nd iroin|it ..|
|00001fe0| 6f 6e 20 6f 74 61 73 75 | 6b 65 31 0d 67 6c 6f 62 |on otasu|ke1.glob|
|00001ff0| 61 6c 20 6b 75 72 6f 4e | 75 6d 62 65 72 0d 70 75 |al kuroN|umber.pu|
|00002000| 70 70 65 74 53 70 72 69 | 74 65 20 32 2c 20 54 52 |ppetSpri|te 2, TR|
|00002010| 55 45 0d 73 65 74 20 6b | 75 72 6f 4e 75 6d 62 65 |UE.set k|uroNumbe|
|00002020| 72 20 3d 20 39 0d 65 6e | 64 20 6f 74 61 73 75 6b |r = 9.en|d otasuk|
|00002030| 65 31 20 20 20 20 0d 0d | 6f 6e 20 6f 74 61 73 75 |e1 ..|on otasu|
|00002040| 6b 65 32 0d 67 6c 6f 62 | 61 6c 20 73 69 72 6f 4e |ke2.glob|al siroN|
|00002050| 75 6d 62 65 72 0d 70 75 | 70 70 65 74 53 70 72 69 |umber.pu|ppetSpri|
|00002060| 74 65 20 33 2c 20 54 52 | 55 45 0d 73 65 74 20 73 |te 3, TR|UE.set s|
|00002070| 69 72 6f 4e 75 6d 62 65 | 72 20 3d 20 31 37 0d 65 |iroNumbe|r = 17.e|
|00002080| 6e 64 20 6f 74 61 73 75 | 6b 65 32 0d 0d 6f 6e 20 |nd otasu|ke2..on |
|00002090| 6f 74 61 73 75 6b 65 33 | 0d 67 6c 6f 62 61 6c 20 |otasuke3|.global |
|000020a0| 6d 69 64 6f 72 69 4e 75 | 6d 62 65 72 0d 70 75 70 |midoriNu|mber.pup|
|000020b0| 70 65 74 53 70 72 69 74 | 65 20 34 2c 20 54 52 55 |petSprit|e 4, TRU|
|000020c0| 45 0d 73 65 74 20 6d 69 | 64 6f 72 69 4e 75 6d 62 |E.set mi|doriNumb|
|000020d0| 65 72 20 3d 20 32 35 0d | 65 6e 64 20 6f 74 61 73 |er = 25.|end otas|
|000020e0| 75 6b 65 33 0d 0d 6f 6e | 20 6f 74 61 73 75 6b 65 |uke3..on| otasuke|
|000020f0| 57 61 6b 75 0d 67 6c 6f | 62 61 6c 20 77 61 6b 75 |Waku.glo|bal waku|
|00002100| 4e 75 6d 62 65 72 0d 70 | 75 70 70 65 74 53 70 72 |Number.p|uppetSpr|
|00002110| 69 74 65 20 39 2c 20 54 | 52 55 45 0d 70 75 70 70 |ite 9, T|RUE.pupp|
|00002120| 65 74 53 70 72 69 74 65 | 20 31 30 2c 20 54 52 55 |etSprite| 10, TRU|
|00002130| 45 0d 70 75 70 70 65 74 | 53 70 72 69 74 65 20 31 |E.puppet|Sprite 1|
|00002140| 31 2c 20 54 52 55 45 0d | 73 65 74 20 77 61 6b 75 |1, TRUE.|set waku|
|00002150| 4e 75 6d 62 65 72 20 3d | 20 37 34 0d 65 6e 64 20 |Number =| 74.end |
|00002160| 6f 74 61 73 75 6b 65 57 | 61 6b 75 0d 0d 6f 6e 20 |otasukeW|aku..on |
|00002170| 6f 74 61 73 75 6b 65 69 | 6e 69 74 0d 6f 74 61 73 |otasukei|nit.otas|
|00002180| 75 6b 65 31 0d 6f 74 61 | 73 75 6b 65 32 0d 6f 74 |uke1.ota|suke2.ot|
|00002190| 61 73 75 6b 65 33 0d 65 | 6e 64 20 6f 74 61 73 75 |asuke3.e|nd otasu|
|000021a0| 6b 65 69 6e 69 74 20 20 | 20 20 0d 0d 6f 6e 20 77 |keinit | ..on w|
|000021b0| 68 69 63 68 4f 6e 65 31 | 0d 69 66 20 66 69 65 6c |hichOne1|.if fiel|
|000021c0| 64 20 22 66 6f 72 31 22 | 20 3d 20 31 20 74 68 65 |d "for1"| = 1 the|
|000021d0| 6e 0d 75 70 64 61 74 65 | 53 69 72 6f 0d 75 70 64 |n.update|Siro.upd|
|000021e0| 61 74 65 4d 69 64 6f 72 | 69 0d 65 6c 73 65 20 69 |ateMidor|i.else i|
|000021f0| 66 20 66 69 65 6c 64 20 | 22 66 6f 72 32 22 20 3d |f field |"for2" =|
|00002200| 20 31 20 74 68 65 6e 0d | 75 70 64 61 74 65 4b 75 | 1 then.|updateKu|
|00002210| 72 6f 0d 75 70 64 61 74 | 65 4d 69 64 6f 72 69 0d |ro.updat|eMidori.|
|00002220| 65 6c 73 65 20 69 66 20 | 66 69 65 6c 64 20 22 66 |else if |field "f|
|00002230| 6f 72 33 22 20 3d 20 31 | 20 74 68 65 6e 0d 75 70 |or3" = 1| then.up|
|00002240| 64 61 74 65 4b 75 72 6f | 0d 75 70 64 61 74 65 53 |dateKuro|.updateS|
|00002250| 69 72 6f 0d 65 6c 73 65 | 0d 6e 6f 74 68 69 6e 67 |iro.else|.nothing|
|00002260| 0d 65 6e 64 20 69 66 0d | 65 6e 64 20 77 68 69 63 |.end if.|end whic|
|00002270| 68 4f 6e 65 31 0d 0d 6f | 6e 20 77 68 69 63 68 4f |hOne1..o|n whichO|
|00002280| 6e 65 32 0d 69 66 20 66 | 69 65 6c 64 20 22 66 6f |ne2.if f|ield "fo|
|00002290| 72 31 22 20 3d 20 30 20 | 74 68 65 6e 0d 75 70 64 |r1" = 0 |then.upd|
|000022a0| 61 74 65 4b 75 72 6f 0d | 65 6c 73 65 20 69 66 20 |ateKuro.|else if |
|000022b0| 66 69 65 6c 64 20 22 66 | 6f 72 32 22 20 3d 20 30 |field "f|or2" = 0|
|000022c0| 20 74 68 65 6e 0d 75 70 | 64 61 74 65 53 69 72 6f | then.up|dateSiro|
|000022d0| 0d 65 6c 73 65 20 69 66 | 20 66 69 65 6c 64 20 22 |.else if| field "|
|000022e0| 66 6f 72 33 22 20 3d 20 | 30 20 74 68 65 6e 0d 75 |for3" = |0 then.u|
|000022f0| 70 64 61 74 65 4d 69 64 | 6f 72 69 0d 65 6c 73 65 |pdateMid|ori.else|
|00002300| 0d 6e 6f 74 68 69 6e 67 | 0d 65 6e 64 20 69 66 0d |.nothing|.end if.|
|00002310| 65 6e 64 20 77 68 69 63 | 68 4f 6e 65 32 0d 0d 6f |end whic|hOne2..o|
|00002320| 6e 20 6a 75 64 67 65 0d | 72 65 70 65 61 74 20 77 |n judge.|repeat w|
|00002330| 69 74 68 20 61 20 3d 20 | 32 20 74 6f 20 34 0d 69 |ith a = |2 to 4.i|
|00002340| 66 20 66 69 65 6c 64 20 | 22 61 64 64 46 69 65 6c |f field |"addFiel|
|00002350| 64 22 20 3d 20 22 61 61 | 61 22 20 74 68 65 6e 0d |d" = "aa|a" then.|
|00002360| 70 75 70 70 65 74 53 70 | 72 69 74 65 20 61 2c 20 |puppetSp|rite a, |
|00002370| 66 61 6c 73 65 0d 67 6f | 20 22 61 57 69 6e 22 0d |false.go| "aWin".|
|00002380| 65 6c 73 65 20 69 66 20 | 66 69 65 6c 64 20 22 61 |else if |field "a|
|00002390| 64 64 46 69 65 6c 64 22 | 20 3d 20 22 62 62 62 22 |ddField"| = "bbb"|
|000023a0| 20 74 68 65 6e 0d 67 6f | 20 22 62 57 69 6e 22 0d | then.go| "bWin".|
|000023b0| 65 6c 73 65 20 69 66 20 | 66 69 65 6c 64 20 22 61 |else if |field "a|
|000023c0| 64 64 46 69 65 6c 64 22 | 20 3d 20 22 63 63 63 22 |ddField"| = "ccc"|
|000023d0| 20 74 68 65 6e 0d 67 6f | 20 22 63 57 69 6e 22 0d | then.go| "cWin".|
|000023e0| 65 6c 73 65 20 69 66 20 | 66 69 65 6c 64 20 22 61 |else if |field "a|
|000023f0| 64 64 46 69 65 6c 64 22 | 20 3d 20 22 64 64 64 22 |ddField"| = "ddd"|
|00002400| 20 74 68 65 6e 0d 67 6f | 20 22 64 57 69 6e 22 0d | then.go| "dWin".|
|00002410| 65 6c 73 65 20 69 66 20 | 66 69 65 6c 64 20 22 61 |else if |field "a|
|00002420| 64 64 46 69 65 6c 64 22 | 20 3d 20 22 65 65 65 22 |ddField"| = "eee"|
|00002430| 20 74 68 65 6e 0d 67 6f | 20 22 65 57 69 6e 22 0d | then.go| "eWin".|
|00002440| 65 6c 73 65 20 69 66 20 | 66 69 65 6c 64 20 22 61 |else if |field "a|
|00002450| 64 64 46 69 65 6c 64 22 | 20 3d 20 22 66 66 66 22 |ddField"| = "fff"|
|00002460| 20 74 68 65 6e 0d 67 6f | 20 22 66 57 69 6e 22 0d | then.go| "fWin".|
|00002470| 65 6c 73 65 20 69 66 20 | 66 69 65 6c 64 20 22 61 |else if |field "a|
|00002480| 64 64 46 69 65 6c 64 22 | 20 3d 20 22 67 67 67 22 |ddField"| = "ggg"|
|00002490| 20 74 68 65 6e 0d 67 6f | 20 22 67 57 69 6e 22 0d | then.go| "gWin".|
|000024a0| 65 6c 73 65 20 69 66 20 | 66 69 65 6c 64 20 22 61 |else if |field "a|
|000024b0| 64 64 46 69 65 6c 64 22 | 20 3d 20 22 68 68 68 22 |ddField"| = "hhh"|
|000024c0| 20 74 68 65 6e 0d 67 6f | 20 22 68 57 69 6e 22 0d | then.go| "hWin".|
|000024d0| 65 6c 73 65 0d 70 75 70 | 70 65 74 53 70 72 69 74 |else.pup|petSprit|
|000024e0| 65 20 61 2c 20 66 61 6c | 73 65 0d 67 6f 20 22 52 |e a, fal|se.go "R|
|000024f0| 65 73 65 74 22 0d 65 6e | 64 20 69 66 0d 65 6e 64 |eset".en|d if.end|
|00002500| 20 72 65 70 65 61 74 0d | 65 6e 64 20 6a 75 64 67 | repeat.|end judg|
|00002510| 65 0d 0d 6f 6e 20 6b 65 | 73 75 0d 72 65 70 65 61 |e..on ke|su.repea|
|00002520| 74 20 77 69 74 68 20 61 | 20 3d 20 32 20 74 6f 20 |t with a| = 2 to |
|00002530| 34 0d 73 65 74 20 74 68 | 65 20 74 79 70 65 20 6f |4.set th|e type o|
|00002540| 66 20 73 70 72 69 74 65 | 20 61 20 3d 20 30 0d 65 |f sprite| a = 0.e|
|00002550| 6e 64 20 72 65 70 65 61 | 74 0d 65 6e 64 20 6b 65 |nd repea|t.end ke|
|00002560| 73 75 0d 0d 6f 6e 20 6d | 6f 64 6f 73 75 0d 72 65 |su..on m|odosu.re|
|00002570| 70 65 61 74 20 77 69 74 | 68 20 61 20 3d 20 32 20 |peat wit|h a = 2 |
|00002580| 74 6f 20 34 0d 73 65 74 | 20 74 68 65 20 74 79 70 |to 4.set| the typ|
|00002590| 65 20 6f 66 20 73 70 72 | 69 74 65 20 61 20 3d 20 |e of spr|ite a = |
|000025a0| 31 0d 65 6e 64 20 72 65 | 70 65 61 74 0d 65 6e 64 |1.end re|peat.end|
|000025b0| 20 6d 6f 64 6f 73 75 0d | 0d 6f 6e 20 72 65 73 65 | modosu.|.on rese|
|000025c0| 74 0d 72 65 70 65 61 74 | 20 77 69 74 68 20 61 20 |t.repeat| with a |
|000025d0| 3d 20 32 20 74 6f 20 34 | 0d 70 75 70 70 65 74 53 |= 2 to 4|.puppetS|
|000025e0| 70 72 69 74 65 20 61 2c | 20 66 61 6c 73 65 0d 65 |prite a,| false.e|
|000025f0| 6e 64 20 72 65 70 65 61 | 74 0d 65 6e 64 20 72 65 |nd repea|t.end re|
|00002600| 73 65 74 0d 0d 6f 6e 20 | 62 75 74 74 6f 6e 31 0d |set..on |button1.|
|00002610| 72 65 70 65 61 74 20 77 | 68 69 6c 65 20 73 74 69 |repeat w|hile sti|
|00002620| 6c 6c 44 6f 77 6e 28 29 | 0d 69 66 20 72 6f 6c 6c |llDown()|.if roll|
|00002630| 4f 76 65 72 28 63 6c 69 | 63 6b 4f 6e 28 29 29 20 |Over(cli|ckOn()) |
|00002640| 74 68 65 6e 0d 73 65 74 | 20 74 68 65 20 69 6e 6b |then.set| the ink|
|00002650| 20 6f 66 20 73 70 72 69 | 74 65 20 63 6c 69 63 6b | of spri|te click|
|00002660| 4f 6e 28 29 20 3d 20 34 | 0d 65 6c 73 65 0d 6e 6f |On() = 4|.else.no|
|00002670| 74 68 69 6e 67 0d 65 6e | 64 20 69 66 0d 75 70 64 |thing.en|d if.upd|
|00002680| 61 74 65 53 74 61 67 65 | 0d 65 6e 64 20 72 65 70 |ateStage|.end rep|
|00002690| 65 61 74 0d 65 6e 64 20 | 62 75 74 74 6f 6e 31 0d |eat.end |button1.|
|000026a0| 0d 1c 91 e5 8c 8e 20 90 | 5e 90 6c 20 2d 20 8a 94 |...... .|^.l - ..|
|000026b0| 8e ae 89 ef 8e d0 20 83 | 55 a5 83 8f 83 93 25 42 |...... .|U.....%B|
|000026c0| 69 67 20 4d 6f 6f 6e 20 | 53 74 75 64 69 6f 20 2d |ig Moon |Studio -|
|000026d0| 20 54 68 65 20 4f 6e 65 | 20 43 6f 72 70 6f 72 61 | The One| Corpora|
|000026e0| 74 69 6f 6e 00 00 | |tion.. | |
+--------+-------------------------+-------------------------+--------+--------+
